﻿'Hacemos una referencia al proyecto de acceso a datos
Imports DataAccessLayer
'Hacemos una referencia al proyecto BusinessEntitites
Imports BE = BusinessEntities

Public Class ProveedorBL
    'Instanciamos la clase ProveedorDAO
    Dim proveedor As New ProveedorDAO

    Public Function ListarProveedores() As DataSet
        Return proveedor.ListarProveedores
    End Function

    Public Function ServiciosXProveedores() As DataSet
        Return proveedor.ServiciosXProveedores
    End Function
    Public Function BuscarProveedor(ByVal objeto As BE.ProveedorBE) As DataSet

        Return proveedor.BuscarProveedor(objeto)

    End Function

    Public Function InsertarProveedor(ByVal objeto As BE.ProveedorBE) As Boolean

        proveedor.InsertarProveedor(objeto)

    End Function


    Public Function ActualizarProveedor(ByVal objeto As BE.ProveedorBE) As Boolean

        proveedor.ActualizarProveedor(objeto)

    End Function

    Public Function EliminarProveedor(ByVal objeto As BE.ProveedorBE) As Boolean

        proveedor.EliminarProveedor(objeto)

    End Function

    Public Function ChapaError() As String
        Return proveedor.ChapaError
    End Function

End Class
